home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Installer / Normale-Installer / swoshd / SWOS Install < prev    next >
Text File  |  1977-12-31  |  3KB  |  125 lines
  1. ; $VER: SWOS HD Install-Script by Piotr Bieniek
  2.  
  3. (set GameDir "SWOS")
  4. (set TotalDisks 2)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8.  
  9. ;try to figure out a place where the user usually installs his games
  10. (if (exists "Games:" (noreq) )
  11.     (set @default-dest "Games:")
  12.     (if (exists "SYS:Games" (noreq) )
  13.         (set @default-dest "SYS:Games")
  14.         (if (exists "Work:Games" (noreq) )
  15.             (set @default-dest "Work:Games")
  16.             (set @default-dest "SYS:")
  17.         )
  18.     )
  19. )
  20.  
  21. ;ask the user to select a directory to install the game into
  22. (set default-dest
  23.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  24.                              "A drawer called " GameDir " will be created.")
  25.                      (help @askdir-help)
  26.                      (default @default-dest)
  27.                      (newpath)
  28.              )
  29.      GameDir
  30.      )
  31. )
  32. (set @default-dest default-dest)
  33. (complete 5)
  34.  
  35. ;create the selected directory and a subdirectory called Data
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39. (makedir (tackon @default-dest "data")
  40. )
  41. (makedir (tackon @default-dest "grafs")
  42. )
  43. (makedir (tackon @default-dest "sound")
  44. )
  45. (complete 10)
  46.  
  47. ;copy all extra files to this directory
  48. (set gamever
  49.      (askchoice (prompt "Which version of SWOS do you wish to install?")
  50.                 (help @askchoice-help)
  51.                 (choices "SWOS 1.0" "SWOS 1.1" "SWOS 95/96" "SWOS Euro'96" "SWOS 96/97" "SWOS 96/97 update disks")
  52.      )
  53. )
  54.  
  55. (if (= gamever 0) (set ssbootfile "ssboot10.hd"))
  56. (if (= gamever 1) (set ssbootfile "ssboot11.hd"))
  57. (if (= gamever 2) (set ssbootfile "ssboot96.hd"))
  58. (if (= gamever 3) (set ssbootfile "ssbootEC.hd"))
  59. (if (= gamever 4) (set ssbootfile "ssboot97.hd"))
  60. (if (= gamever 5) (set ssbootfile "ssboot97u.hd"))
  61.  
  62.       (copyfiles (source ssbootfile)
  63.                  (dest @default-dest)
  64.                  (newname "ssboot")
  65.       )
  66.       (copyfiles (source "Sensible World of Soccer")
  67.                  (dest @default-dest)
  68.       )
  69.       (copyfiles (source "Sensible World of Soccer.icon")
  70.                  (dest @default-dest)
  71.                  (newname "Sensible World of Soccer.info")
  72.       )
  73.  
  74. (complete 20)
  75.  
  76. (askdisk (prompt "Please insert SWOS disk 1 in any drive.")
  77.          (help @askdisk-help)
  78.          (dest "SWOS")
  79. ;         (assigns)
  80. )
  81.  
  82. (copyfiles (source "SWOS:swos")
  83.            (dest @default-dest)
  84. )
  85. (copyfiles (source "SWOS:swos.rel")
  86.            (dest @default-dest)
  87. )
  88. (copyfiles (source "SWOS:swos2")
  89.            (dest @default-dest)
  90. )
  91. (copyfiles (source "SWOS:swos2.rel")
  92.            (dest @default-dest)
  93. )
  94. (copyfiles (source "SWOS:grafs")
  95.            (dest (tackon @default-dest "grafs"))
  96.            (all)
  97. )
  98. (copyfiles (source "SWOS:sound")
  99.            (dest (tackon @default-dest "sound"))
  100.            (all)
  101. )
  102.  
  103. (complete 60)
  104.  
  105. (askdisk (prompt "Please insert SWOS disk 2 in any drive.")
  106.          (help @askdisk-help)
  107.          (dest "SWOS2")
  108. ;         (assigns)
  109. )
  110.  
  111. (copyfiles (source "SWOS2:data")
  112.            (dest (tackon @default-dest "data"))
  113.            (all)
  114. )
  115. (copyfiles (source "SWOS2:grafs")
  116.            (dest (tackon @default-dest "grafs"))
  117.            (all)
  118. )
  119. (copyfiles (source "SWOS2:sound")
  120.            (dest (tackon @default-dest "sound"))
  121.            (all)
  122. )
  123.  
  124. (complete 100)
  125.